BCC-500 BASIC INSTRUCTIONS 


Numbers 


Integer (no decimal point) 
Floating Point (has a decimal point) 
Scientific Notation (decimal point and power of 19) 


Simole Variables 


All variables are a letter or a letter followed by 
a number (and a $ is a string) 


Arrays 


Gnly one and two dimensional arrays permitted. Array 
names must be a letter, subscripts are any expression 


Arithmetic Operators 


Negation 


+ Exponentiation 
x Multiplication 
/ Jivision 
= Addition 
Subtraction 
Related Operators 
= Equal to 
> Greater than 
>= Greater than or equal to 
< Less than 
<= less than or equal to 
<> Not equal to 
>< Not equal to 
Commands 
CHAIN loads anotner program segment, retains variables 
CONTINUE continues program execution 
DELETE Deietes statements from memory 
cer Assigns a vaiue to a variable 
LIST Lists statements stored in memory 
LOAD Reads a file into memory 
OULT Returns program control to the Executive 
RUN Start executing program statements 
SAW Save program memory on designated file 
Set Assigns a value to a variable 
| oeasonin One or more (@Seds returns contro! to BASIC or EXEC 
Conte / ic | Consrat /« 
Miscellaneous Frogram Statements | 
Wb Reserves memory for an array 
END Last statement in program (not required) 
REGUL E Automatic program running upon completion cf loading 
PAUSE: 2tODS program execution until CONTINUE command given 
REM Non-executable remark statement 
STQ! 7 


ermina ates execution 


Controlling Statement Execution Order 


FOR 

NEXT 

GO 10 
GOSUB 

IF GO TQ 
IF THEN 
ON GO TO 
ON GOSUB 


Matrix Statements 


Substitution 
Constant Multip. 
Multiplication 
Subtraction 
Addition 

CON 

[DN 

INV 

ONE 

TRN 

ZER 


strings 
CHANGE 


Input 

DATA 

READ 
RESTORE 
INPUT 

INPUT FILE 
READ FILE 
INPUT USING 
INPUT FILE USING 
ACCEPT 

MAT 


Output 


PRINT 

PRINT FILE 

WRITE 

WRITE FPIGE 

PRINT USING 
PRINT FILE USING 
ITE 

MAT 


Start loop, TO set range, STEP set increment 
Designated end of a FOR loop 

Begins execution at statement specified 

Begins execution at subroutine statement specified 
Conditional GO TO statement 

Conditional GO TO statement 

Multiple conditional GO TO statement 

Multiple conditional GOSUB statement 


Sets elements of one matrix to another 

Multiplies elements of a matrix by a constant 
Multiplies two matrices 

Subtracts two matrices 

Adds two matrices 

Sets elements of a matrix to l 

Sets elements of a matrix to the identity matrix 
Creates matrix which is the inverse of given matrix 
Sets elements of a matrix to l 

Creates matrix which is the transpose of given matrix 
Sets elements of a matrix to @ 


Changes String-variables to variable or visa-versa 


Data stored within program to be used witn READ 

Reads data from a DATA statement 

Sets pointer to first DATA statement 

Reads data from the terminal 

Reads data from a symbolic file 

Reads data from a binary file 

Reads formatted data from the terminal 

Reads formatted data from a neers file 
Identical to INPUT 

Mat added to any INPUT or READ statement changes the 
statement to read matrices 


Writes data on the terminal 

Writes data on a symbolic file 

Writes data on a binary file 

Writes data on a binary file 

Writes formatted data on the terminal 

Writes formatted data ona SPOT AG file 

Identical to PRINT 

MAT added to any PRINT or WRITE seapenent changes the 
statement to write matrices 


Formatting Input/Qutput 


3 

1. 
<string>" 
-<picture> 


Files 


OPEN 
EOF 
CLOSE 


Spaces to multiple of 15 positions before printing 
Spaces to multiple of 3 positions before printing 


No spacing before printing next value 


Designates a picture string to format input/output 


Opens files 
Check for parity error or end-of-file 
Closes files 


Functions and Subroutines 


GOSUB 
ON GOSUB 


Call to subroutine 

Multiple conditional call to subroutine 
Designates end of subroutine 

User defined function 

Sine of X 

Cosine of X 

Tangent of X 

Arc tangent of X 

Exponential (base e) 

Absolute value of X 

Natural log of §S 

Square root of xX 

Log base ten of X 

Integer part of X 

Random number 

Exponentiation (base 19) 

see Formatted Input/Output 

CPU or terminal time 

see Files | 

Current date and time 

Returns one character string 
Returns 2-13 character strings 
Returns first character of argument 
Returns all but first character of argument 
Length of argument 

Returns floating point of argument 
Returns internal decimal value 
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IF THEN, 


IF GOTO. 
READ . 


INPUT, 


ACCEPT , 
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INPUT FILE . 


ACCEPT FILE. 
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OPEN , 


PRINT FILE 
TYPE FILE 
CHANGE . 
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ACCEPT USING 
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INTRODUCTION 
Chapter 1 - INTRODUCTION 


Using this Manual 


This mamal is intended to be a reference manual for XDS 94@ BASIC and a 
tutorial for learning BASIC, 


Chapters one through four provide an introduction to BASIC. Beginners may raad 
these chapters and begin writing programs immediately. If the user needs only 
the elementary features described, he may use just these without worrying about 
the extra features described in chapters five through eight. These more 
advanced features, altnough always available, cost the user almost nothing if 
they are not. used, However, these other features of BASIC can be of great 
value. In particular, the matrix package and the formatted input/output 
Capabilities can be very helpful. These can be learned and used as necessity 
dictates. 


For clarity, certain typographical conventions have been used throughout this 
manual, To distinguisn text output by the computer from text entered by the 
user, we have underlined user entered text. Actual examples of BASIC commands 
or programs are preceeded by ;. Nonprinting control characters are indicated by 
an ampersand (&) preceding the letter (e.g. &D to indicate a control-D). The 
use of the RETURN key is indicated by (ret) and (esc) indicates the use of the 
ESCAPE Key. 


An idea is enclosed by <>. Some of the concepts used in the manual and their 
abbreviations are: 


<cons > constant 
<stn> wtatement number 
<filnd file number 
<tnm> file name 
(rel-expr> re lational-—expression 
Cexpr> expression 
<var> variable 
<let> letter 
<i li st> input list in form: 
<var > [ <var 2 lees 
Colist> output list in form: 
<expr> [{<comma>d,;} <expr>]... 
<mlist> Output list for matrix in form: 


<var 1> [{<comma>, 3} <var re eae 
Braces {} are used to denote a grouping. For example, 
LOAD {(ret), <fnm>} 


The grouping indicates that a choice is to be made. The above example indicates 
that the word LOAD must be followed by either a (ret) or a file name. 
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Brackets [] denote options. Items enclosed in brackets may or may not appear. 
For example, 


{[<stn 1>] GO To <stn 2> 


denotes that the words GO TO may or may not be preceded by a statement number; 
however, the words GO TO must be followed by a statement number. 


Ellipsis marks (...) indicate that the preceeding item may occur one or more 
times in succession. For example, 


<expr 1> [, <expr 2>]... 


states that <expr 1> must occur, <expr 2> might occur and that it may be 
followed by <expr 3>, <expr 4>, etc. 


In all program examples, each line is terminated by a (ret) which is not 
indicated in the examples, : 7 
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INTRODUCTION 
Chapter 1 — INTRODUCTION 


Using this Manual 


This manual is intended to be a reference manual for XDS 940 BASIC and a 
tutorial for learning BASIC, 


Chapters one through four provide an introduction to BASIC, Beginners may read 
these chapters and begin writing programs immediately. If the user needs only 
the elementary features described, he may use just these without worrying about 
the extra features described in chapters five through eight. These more 
advanced features, altnough always available, cost the user almost nothing if 
they are not used. However, these other features of BASIC can be of great 
value. In particular, the matrix package and the formatted input/output 
capabilities can be very helpful. These can be learned and used as necessity 
dictates, : 


For clarity, certain typographical conventions have been used throughout this 
manual, To distinguish text output by the computer from text entered by the 
user, we have underlined user entered text. Actual exampies of BASIC conmands 
or programs are preceeded by |. Nonprinting control characters are indicated by 
an ampersand (&) preceding the letter (e.g. &D to indicate a control-D). The 
use of the RETURN key is indicated by (ret) and (esc) indicates the use of the 
FSCAPF key. 


An idea is enclosed by <>. Some of the concepts used in the manual and their 
abbreviations are: 


<cons > constant 
<stn> statement number 
<f lA file numper 
<fnm> file name 
<rel-expr> re lationai-expression 
<expr> expression 
 Cvar> variable 
<let> letter 
Cilist> input list in form: 
<var 1> [,<var 2>]... 
<olist> output list in form: 
<expr> [{<comma>,;} <expr>]... 
<mlist> output list for matrix in form: 


<var 1> ({<comma>,3} <var 2>]... 
Braces {} are used to denote a grouping. For example, 
LOAD {(ret), <fra>; 


The grouping indicates that a choice is to be made. The above example indicates 
that the word LOAD must be followed by either a (ret) or a file name. 
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Program de fi nition 


Statement Number 


Comma na 
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Integer 


Floating Point 
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Chapter 2 — GENERAL CONCEPTS 


A computer program is a set of statements which describe 
the specific directions for solving a particular problem. 
By means of a program you communicate your directions to a 
computer and, as with all attempts at communication, you 
must be careful to restrict yourself to terms that are 
clearly understood, A program consists of one or more 
statements that are to be executed in a certain order by 
tne computer, 


Statements entered with a statement number are analyzed by 
BASIC to see if it can understand what you wish jone., If 
go, it will save this statement for later execution with 
the other statements you may enter, If not, it will print 
an error message and discard the line. These statements 
are actually executed only after you have instructed BASIC 
to do so by entering a RUN command, In BASIC, order is 
determined’ by the statement number. BASIC will execute ‘che 
statements in increasing numerical sequence starting with 
the smallest statement number and proceeding to the 
largest. 


If a statement which has no statement number is entered, 
BASIC assumes that you wish this statement to be executed 
directly after a (ret) is typed, and therefore these 
statements are called commands, 


The arithmetic components of the BASTC language are 
constants, variables and expressions. 


A constant is a fixed value used in the program rather than 
being calculated by the program. A constant may be any 
decimal number, positive or negative, with or without a 
decimal point, that can be expressed in twelve digits or 
less. Only twelve significant digits of accuracy are 
retained, There are three forms in which a constant may be 
expressed, 


A constant may be expressed as an integer number with 
twelve or fewer significant digits and no fractional part. 
Examples are: 

1 os 139 


A constant may be expressed as a floating point number 
containing a fractional part. Examples are: 
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Seientific 
Notation 


Variable 


Array 


Dimension 


Expression 
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1.5 18.2 155,275 


A constant is expressed in scientific notation if it is 
too large or too small to be expressed in aight digits. 
Scientific notation consists of a number, either integer or 
floating point., followed by the letter £, followed by a 1! 
to 3 digit exponent. The exponent represents the integral 
power of ten by which the number to the left of the E must 
be multiplied. For example, all of the quantities 2,59, 
-259E1, 25.9E~-1, and 259E-~2 express the same number. The 
largest mumber which BASIC will accept is 5.7896044E76; the 
smallest is 4,31 8084E~77, 


BASIC permits the user to use a symbol to represent a 
constant. Such symbols are called variables because the 
value represented by the symbol may be changed. In BASIC, 
an arithmetic variable may be a single letter or a letter 
followed by a digit. The one exception is that PI is also 
a valid variable name, The value of this variable is 
initialized by BASIC to be 3.1415926, 


It is often convenient to keep data ina list. Such a list 
is called an array. The individual values in the list are 
called array elements. We refer tc an array element by 
using the name of the array and the position of the element 
in the array. For example, we can refer to the fourth 
element in array A by writing A(4). In this example, the 4 
is called the subscript. Note that the name of an array 
must be only one letter, while a subscript may be any 
well-defined expression, which may also include an array 
element. (Expressions are discussed below.) 


An array may have one or two dimensions, <A two dimensional 
array may be thought of as having columns and rows. The re 
is always one subscript for each dimension; thus, a two 
dimensional array is written as A({X,Y) where X represents a 
row mamber and Y represents a column number. See the DIM 
statement below, | 


Arithmetic expressions are formed by combining variables 
and/or constants with arithmetic operators. There are six 
arithmetic operators in BASIC: 


Negation 
Exponentiation 
Multiplication 
Division 
Addition 
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To make sure that the computer evaluates the expression the 
way the user meant it to be evaluated, there is an 
established rule of precedence: 


first —- Functions 

second — Fxponentiation 

third - Negation 

fourth ~ Multiplication or Division 
farttn - Addition or Subtraction 


The computer calculates from left to right if operators of 
the same precedence (for example, multiplication and 
GQivision) appear in the same line. To alter this order, 
parentheses mist be used, Expressions within the 
parentheses are evaluated first using the abeve ruies of 
precedence, Parentheses which do not alter the normal 
precedence operations have no effect. 


A relational expression consists of two arithmetic 
expressions separated by one of the relational operators, 
The reiational operators available in BASIC are: 


Operator __—- Relation 
= equal to 


> greater than 
>= greater than or equal t 
< less than | 
<= less than or equal to 
“2 not equal to 
>< not equal to 


In SASIC, a relational expression is either “true oF 

false , depending on whether the answer to the question 
implied py the relational expression is yes or no , Bad 
tne answer to the question is yes ,, the relational 
expression is true ; if the answer is no., the relational 
expression is false , 
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The functions available in BASIC are: 


SIN(<expr>) sine of <expr> in radians 
Cos(<expr>) cosine of <expr> in radians 
TAN(<expr>) tangent of <expr> in radians 
ATN(<expr>) arctangent of <expr> in radians 
EXP(<expr>) natural exponential of <expr> 
ABS(<aexpr>) absolute value of <expr> 
LOG(<expr>) natural log of <expr> (base e) 
SQR(<expr>) square root of <expr> 
LGT(<expr>) common log of <expr> (base 19) 
INT(<expr>) integer part of <expr> 

RND, random number 

EXT(<expr>) exponentiation (base 19) 
TAB(<expr>) tabs output in a PRINT statement 
TIM(<expr>) time since system start, or user’s CPU 
time 

EOF(<expr>) check for end-of-file 


The <expr> enclosed in parentheses is called the argument. 
The argument need not be enclosed in parentheses where no 
confusion can result from the precedence implied in the 
following expression. | 


Some functions require additional description, 


The RND function {3s a pseudo-random number generator. When 
called, it will produce a number between zero and one. 
When called repeatedly, it will produce a sequence of 
pseudo-random numbers, The same sequence of pseudo-random 
mumbers will occur in every program in which the RND 
function is used. This feature is helpful in debugging. 
The argument in the call to the RND function is meaningless 
and may be called with an argument or simply followed by a 
period; either X = RND, or X = RND(Z) is acceptable. 


The INT (integer) function is used to determine the integer 
part of a number. INT always returns as its value the next 
smaller integer value whether the value of the expression 
is positive or negative; thus INT(7.8) equals 7 and 
INT(—7.8) equals -8, , 


When used in a PRINT statement, the TAE f2:nction spaces 
over to the Nth print position, where N is the integer part 
of the argument, If Nis less than or equal to the current 
position, nothing happens, Spacing occurs such that after 
a TAB(N), the next character will be printed in the Nth 
position. 
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The TIM function returns the time since system start-up in 
1/68ths of a second if the a ment is 8, and the CPU time 
accumulated since login (in 1/6@ths of a second) if the 
argument is 1. 


When reading from either a symbolic or binary file, there 
will be a certain point when there is nothing more to read, 
because nothing more has been written. This is the 
end-of-—file. Reading past it is regarded as an error, 380 
the end-of-file condition should be detected before an 
error occurs, 


The EOF function ras a file number as its argument, 
returning -1 if the file is closed, 8 if the file is open 
and averything is normal, 1 if the file is at the 
end-of-~file and 2 if a hardware error occurred on the last 
Operation. 


When the end-of-file is reached, variables will be set to 
either zero or the null string until the input list is 
exhausted, Then the file will be flagged as at the 
end-of-file. If an attempt is made to use the file again 
without closing and reopening it, the error message FILE 
AT EOF will be printed. If the EOF function is called 
after the end-of-file is detected, the file will be reset 
to its closed state. Therefore the end-of-file can only be 
checked once on each file read. 
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Chapter 3 - PROGRAM PREPARATION AND EXECUTION 


There are several methods for preparing a BASIC program for 
execution: typing directly into BASIC, QED, or using paper 
tape input. The simplest and most direct is to type the 
program directly into BASIC. This is the usual procedure 
for small or medium sized programs. BASIC does not have 
complete provisions for line editing like those available 
in QED and for the programmer who has mastered QED it is 
usually far simpler to prepare the program and make 
revisions while in QED, write the program to a file and 
load it into BASIC for debugging and execution. The most 
economical method is to prepare the program off line on 
paper tape, log-in and read the paper tape into a file. 
Complete information regarding the preparation of paper 
tapes can be found in the Timesharing User's Guide’. 


LOAD <fnm> 


If the program was prepared in QED or on paper tape, then 
the program is stored ina file which needs to be brought 
into memory by the LOAD command, If the user types a (ret) 
after LOAD instead of the file-name, BASIC responds with 
FROM PILE>”, and waits for a fi le-name to be supplied, 


As the program is loading or while typing a statement 
directly into BASIC, the system prints out any line 
containing an error, It also prints a pointer to the 
position in the line where BASIC detected the error 
although this may not be the location of the error, 


Any line can be corrected by retyping it using the same 
statement number, The editing control characters &A, &W 
and &Q may be used while entering GBASIC commands or 
programs, &A deletes the pravious character, &W deletes 
the previous word and 42 returns to the beginning of the 
current line. An uparrow, back slash or underline is 
printet respectively so that you Know that the editing 
action has taken place, 


Remember that a space is Lqnored in BASIC statements except 


ina literal string (text surrounded by quotes} although 
spaces are usually inserted for readability. Since each 
BASIC statement is limited to a single lina of 89d 
characters, completion of a complex statement may be more 
important than the readability of that line. 


BASIC interprets lower-case letters as upper-case letters 
in all cases except.when included ina literal string. 
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LIS? 


DEL 


REM 


Comme nt 


PAUSE 


LIs?t {({<atn 1> [~<stn 2>, <comma><stn 2>...]}} 


When editing the program, it is useful to list some or all 
of the statements of the program. LIST prints statements 
in ascending numerical order regardless of input order, 


Comma Mea ni ng 

LIST list entire program 

LIST 19 list statement number 12 

LIST 19 —~ 380 list statement numbers 19 thru 398 


LIST 19, 20, 30 list statement numbers 19, 28, 398 


DEL {ALL, [<stn 1> [-<stn 2>, <comma><stn 2>...)]}} 


When editing the program in BASIC, it is possible to delete 
one or more statement numbers of the program by the DEL 
command. To delete one statement, the user may simply type 
the statement number followed by a (ret). 


Command Meaning 

DEL ALL delete entire program 

DEL 19 delete statement number 198 

DEL 19 — 3¢8 delete statement numbers 19 thru 304 


DEL 18, 20, 38 delete statement numbers 19, 28, 32 


<satn> REM <text>d 


An important part of any program is the description of what 
is done and what data should be supplied. One way of 
documenting a program is to supply remarks along with the 
program itself. BASIC provides this capability with the 
REM (remark) statement, 


100 REM I NEVER REMEMBER WHAT MY PROGRAM DOES 


line-by-line comments may be included by putting an 
exclamation point and the comment at the end of the 
statement, It is not recommended that ccmma nds be 
commented in this manner.. The comment will be ignored, and 
the ! will be treated as though it were a (ret). 
Exclamation points may still pe used in literals, of 
course, CHAIN statements should not be commented with the 
!, as BASIC has no easy way of Sere ema. i “ne - belongs 


| with the file name or a comment, 


1@ PRINT “PAR OUT!” ! comment of surprise and awe 


<stn> PAUSE 
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The PAUSE statement is useful while debugging a program. 


When executed it interrupts the poate and returns to the 
BASIC command mode after typing t me ssage 


PAUSE AT <stn> 


At this point. commands may be used to change or examine 
variables, Program execution may then be resumed using the 
CON command. Execution may also be begun at some other 
point in the program using the GOTO command. However, 
GOTO, unlike CON will perform a certain amount of 
initialization. Program statements should not be changed 
or new statements added after a PAUSE statement unless the 
program is restarted with the RUN command. 


CON 

The CON (continue) command is used to resume execution 
after a PAUSE. 

<stn> STOP 

The STOP statement is used to stop program execution at 
some point in the program other than the last statement. 
<stn> END 

An END statement indicates the termination point of a 
program, Some versions of BASIC require an END as the last 


statement of the program. While NOAA-BASIC does not, the 
END statement is provided for consistency with other 


systems. 


RUN [<fnm>] 


The user types a RUN command to begin execution. The 
program always begins by executing the statement with the 
smallest statement $$ number and executes by ascending 
statement numbers. An important point to remember about 
BASIC is that the values of simple variables are not 
automatically reset to zero when a program has been loaded, 
therefore, any variable whose value mist be zero at some 
stage of the program should be initialized to guarantee the 
desired results. 


If an escape is typed while the program is running, the 
current statement is finished and the message: 
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Automatic Run 


EXECUTE 


SAVE 


(eS¢c) AT <stn> 


will be printed out. <stn> will be the number of the next 
statement to be executed. You may resume execution with 
the CON command. | 


Two consecutive escapes will normally return command to the 
Executive, However, if the current statement is an INPUT, 
One escape will only cause BASIC to wait for more input. 
Two must be used to return to the canmand level of BASIC, 
but this will bypass the (ZSC) message. Attempts to 
contimie execution will probably meet with failure. Typing 


any input value followed by an (esc) and (ret) will cause 


termination with the proper message. 


If the <fnm> is included in the RUN command, the file will 
be loaded into BASIC and execution will automatically begin 
when loading is completed. 


If “BASIC <fnm>” is typed while in the Executive, BASIC 
will load the file and automatically run it. For example: 


~BASIC "XYPLOT” 


will cali BASIC, which will load and run public file 
XYPLOT , The file does not need to have a RUN command at 
the end to start running. 


¢stn> EXECUTE 


Include an EXECUTE statement somewhere in the program, if 
you wish the program to start running each time it is 
loaded, ; 


SAVE <fnm> 


To store the currently loaded version of a BASIC program 
onto a permanent disc file the SAVE command is used. This 
must be done if you have made changes to a program and wish. 
to save the corrected version of the program ona file. 


If .the user types a (ret) after SAVE instead of the <fnm, 
BASIC responds with ON> and waits for a file name to be 


typed. 


If there are any doubts about the current BASIC program, it 
would be best to list the program before saving it, since. 
BASIC only writes the version of the program that is 
currently loaded. 
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{<stn>] CHAIN (<fnm)>] 


If the user types a (ret) after CHAIN instead of the <fnm, 
BASIC responds with “FROM FILE>” and waits for a file name 
to be supplied. 


This statement provides the user with the capability to 
chain several programs together as though they were one 
program, Although PASIC can now handle single programs of 
up to 12250 characters, programs larger than this may be 
run using the CHAIN statement. Perhaps more useful is the 
capability of breaking a large program into smaller chains 
and after examining the output of one chain, chaining to 
the other chains to perform additional calculations, 


When the CHAIN statement is executed, the current program 
is deleted (like DEL ALL) and a new program is loaded, The 
values of all array variables and simple variables are 
preserved. Two restrictions on the use of the CHAIN 
statement are: 


1) The contents of string variables (simple and 
array) will be destroyed when a CHAIN statement is 
executed. In other words, all string variabies will 
be undefined at the beginning of a program chain, mo 
the values of string variables need to be retained 
from one program chain to the next, then they mst be 
written onto a disc file before the CHAIN is executed 
and read back into the variables at the beginning of 
the next chain. This problem will be fixed ina 
future version of BASIC, 


2) All input and output files are closed before a new. 
chain is loaded, 
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Commands Individual statements without a statement number may be 
used as one-line programs or commands. These commands 
are executed immediately and the results stored in the 
computer or printed out, This capability makes BASIC 
extremely powerful as a desk calculator, able to evaluate 
complicated mathematical expressions. 


LET (<stn>] LET <var> = <expr> 
SET (<stn>] SET <var> = <expr> 


Ifa variable is to be used as part of an expression in a 
BASIC statement, the user must be able to assign a value to 
the variable. The LET or SET commands are used to indicate 
replacement of the current value of a variable by a new 
value. In BASIC neither the words LET nor SET are required 
bit either is accepted to retain compatibility with other 
systems. For example, the command? 


X= 2+ 3 

assigns the value 5 to variable X; the command: 
SET Y = 18.2. 

assigns the value of 10.2 to the variable Y and: 
LET Z = SQR (¥Y + X + 48) 


assigns the value of 4 to the vartable 2. 


PRINT |  [<stn>] PRINT <olist> 
TY PE (<stn>] TYPE <olist> 


Numeric expressions in <olist> must be separated by a comma 
or a semicolon, while character strings, which are always 
enclosed between quote characters { ... ), may be separated 
from other strings or expressions by nothing, a cOmma or a 
semicolon. 


TYPE is identical to PRINT except that TYPE is not used in 
ether BASIC systems, Type has been added for FORTRAN IT 
Bimiliazity. 


zoned format The use of a comma will result in BASIC spacing to the next 
multiple of 15 print positions before the next value (or 
character string) is printed. Each numeric value occupies 
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one print zone of 15 positions. There are five print zones 
per line. If all five zones have been printed, BASIC goes 
to the first print zone of the next line to print the next 
va lue. A character string is not restricted to 15 
positions. The entire string is always printed}: 
overprinting will occur at the right margin depending on 
the line length of the output device being used. 


If a PRINT statement is terminated by a comma, the output 
of a (ret) is suppressed in printing. 


> “FOR X= 5 | 
{}FOR X 2 oo ~ 5463925 
There will always be at least one space between fields. If 


a field ends in the column adjacent to the column where the 


next field would normally begin, BASIC will space to the 
next zone. 


1>1@ PRINT “1 2345678901234", "x" 


[\>20 PRINT 12345678941 2345 , xX 
{> BUN 

11 2345678901234 X 

14 2345678901 2345 Xx 


The user may specify that output is to be printed in packed 
format by separating the expressions with a semicolon 
instead of a comma. The semicolon signals BASIC to type 
two spaces and then enough additional spaces to move to the 
next multiple of three print positions on the print line, 
One exception to this rule is the case in which a semicolon 
is used to terminate the print list. This serves only to 
suppress the output of a (ret) which BASIC normally types 
at the end of a print statement. 

[>PRINT "POR X =": _45:_TAN(,5) 

|>FOR X = 7) 23463825 


\>12 PRINT “THE BEGIN’: 
i> 2 NT ING EN 
{> RUN : 
'THE BEGINNING THE EN 


If two character strings (or an expression and a character 
string) appear in an output statement with neither a comma 
nor a semicolon separating them, 3ASIC will type them as 
Closely together as possible}; no extra spaces are inserted 
in the line, Remember that BASIC always leaves one space 
for the sign when outputting a numeric field. 
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> B23 
>PRINT A COMP” RESSED. 8B 


t 
t 
$ 
| 
| 3COMPRESSED 5 


In order to include control characters or function 
characters ina character string, it is necessary to know 
the internal octal code of the characters. A list of 
these octal codes is in the Timesharing User’s Guide 

Having determined the octal code of any character, include 
that character by using the form 4&nnn where n is an octal 
digit. For example, the internal octal code of the bell 
character (control-G) is 147. To cause BASIC to ring the 
bell guring program execution, use the statement PRINT 
&147 . This form for special characters may be mixed with 
other conventional characters in a string. When BASIC 
scans the string, the presence of the character & signals 
it to examine the next 1-3 characters to see if they ars 
octal digits. If not, the & is treated like any other 
character. Control characters may also be indicated Ww & 
followed by a letter. 


\>p N ~ a - 5 " 352" ( 
FOR X = 
a) 


-5463025 


To space up a single line include a PRINT statement with 
nothing in its list. This may also be accomplished ww 
including an &155 or &M in a string, as 155 is the internal 
octal form of a carriage return, which is the same as 
control-M. 


If the user wants to execute a number of commands ina row 
without stopping each time to enter the command, then he 
composes a program. This program contains any number of 
statements. For example, consider the following statements 
for a program to calculate the hypotenuse of a right 
triangle. 


Note that @ach statement has a unique statement num ber 
(which may be any integer in the range 1 through 99999). 
The presence of the statement number tells BASIC that these 
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GO TO 


IF THEN 
IF GO TO 


statements are not to be immediately executed, but are to 
make up a program. When the RUN command is given, telling 
the computer to execute the program, the statements are 
executed one at a time in ascending numerical sequence. 
baa result printed by the computer for the above example 
would be: 


‘Az 4 | Ba 3 Cz 5 


Although BASIC executes statements according to the 
numerical sequence of statement numbers, the statements of 
a program need not be prepared in numerical sequence. For 
example, the above program could have been prepared as: 


130 PRINT "A=" A, “Be” B, “c=” C 
199 A= 4 

110 Bs 3 

122 C = SQR(AT2 + Br2) 


and the results would have been identical. 


[<stn 1>] GO TO <stn 2> 


<stn 1> is the optional statement number of the GO TO 
statement and <satn 2 is the. statement number that is to be 
executed next. 


As we have seen, BASIC executes the statements of a program 


in ascending numerical sequence by statement num ber. 
However, in writing programs, it is sometimes necessary to 
change the normal sequence of execution. This can be 
accomplished by using the GO TO statement. 


188 GO TO 105 
GO TO 215 


<stn 1> IF <rel-expr> THEN <stn 2> 
<atn 1> IF <releexpr> GO TO <stn 2> 


It is often convenient to go tO a statement only under 
certain conditions. This type of statement is calied the 
IF (or conditional GO TO). This means, If the relational 
expression is true, go to <stn 2>3 otherwise (that is, if 
the relational expression is false), go to the next 
statement number in numerical sequence after <stn 1> . For 
example, if we wane to say, I: x is greater than 5, go to 
sratement 102 , we would write 


78 IF X > 5S THEN 120 
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Other examples are: 


100 IF A = 18 GO TO 589d 
568 IF C(5) > 10 THEN 2380 
2308 IP D <= E THEN 1390 


<stn> DATA <cons 1> [,<cons 2>]... 
(<stn>] READ <ilist> 


"Values can be assigned to variables in several ways. Using 


LET or SET is one method. Ancther method involves the 
combined use of the DATA and READ statements. Ail the 
constants that are to be assigned to variables throughout 
the program are written together in DATA statements. Each 
time a READ statement appears, the computer automatically 
assigns each constant in the DATA list to the corresponding 
variable in that READ statement, For example, the 
statements 


280 DATA 1, 2, 3 


would be equivalent to the statements 


1802 A 
159 8B 


1 
2 
155 Cc 3 


Generally a program uses more than one value for a variable 
in order to prevent excessive use of constants and 
assignments. For example, consider the program: 


19 G = 198g 

<8 P = 28 

32 D=z=G* Pp * 81 
42 A= Ge-D 

5@ PRINT D, A 

55 G = 1508 

68 Pes 5 

786 D=z=G* Pp * 81 
88 Az G — D ; 
9@ PRINT D, A 


Another way of writing this program using the READ and DATA 
statements is: 


49 Az®G = | 
>@ PRINT D, A 
62 READ G, P 


4=5 


4—6 


BASIC Manual 
July 173 


BASIC COMMANDS AND STATEMENTS 


RES TORE 


INPUT 
ACCEPT 


78 D=G* P * ,@1 
B86 A2G-D 

98 PRINT D ,. A 

96 DATA 100, 28, 150, 5 


Note that all the data that is to be assigned to G and P is 
now located in statement number 96. 


Once all the data has been assigned by READ statements, 
additional READ statements will result in the error message 
“OUT OF DATA <stn>’ where <stn> is the statement number of 
the READ statement. 


<stn> RES TORE 


RESTORE instructs the computer to reread DATA values 
beginning with the first DATA statement. Thus in the 
example below, the values for E, F and G (statement 35) are 
the same as for A, B and C because statement 35 follows a 
RESTORE statement. | 


10 READ AZ BRC | ww 
iS PRINT A= Ai. B= Bi. c= ¢ 
\>20 READ D. 

[>25 PRINT “p=” p 

|>3@ RES TORE 

\>49 PRINT E= E; "F= Fy G2 G 
\>45 DATA 1, 3 

1>5@ DATA 5, 7, 9, 11, 13 

| > RUN 

‘A= 1 Be 3 Cz 5 

ip= 7 


\Bs 1 Fe 3 G= 5 


paed INPUT <ilist> 
<stn>| ACCEPT <i list 


To use the READ and DATA statements or the LET statement, 
the user must assign values to ali variables when the 
program is written. To assign values to variables at 
execution time the user may use the INPUT statement, Each 
time the INPUT statement is encountered during execution, 
the program is halted and a ? is output to the terminal. 
At this time numbers separated by commas, svaces or (ret 
must be typed in. The values are automatically assigned to 
the respective variables and execution is continued. 


ACCEPT functions identically to INPUT except that ACCEPT is 
not compatible with other BASIC systems and has only been 
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added for FORTRAN II similarity. 


The editing control characters SA, GW and &Q may also be 
used while entering data from the teletype. G&A deletes the 


previous character, 4&W and &Q delete the current input 
field. 


Now the sample program given for the READ and DATA 
statements could be written as: 


1 725 142.5. 


When the RUN command is given, BASIC executes the first 
INPUT statement and waits for the values of G, P and (ret). 
Upon receiving these, execution continues until the next 
INPUT statement. | 


Note that the first four statement numbers of the sample 
program for the READ statement are exactly like the second 
four statements. This makes it possible to represent the 
program in the following way: 


10 READG, P 

20 D=G * p *# ai 

38 AzGe D 

44 PRINT D, A 

5@ GO TO 19 

6@ DATA 100, 28, 150, 5 


The computer will perform statements 1@ through 50 in the 
normal fashion, but after completing statement 50 it will 
go back to statement 18 and repeat statements 1d through 
50. This process is repeated over and over until ali data 
defined in the DATA statement (or any higher numbered DATA 
statement) has been used, At this time, the error message 
OUT OF DATA 18 =~would be typed. This technique, often 
Called a loop, is a very important programming capability. 


The following example shows the statements necessary to set 
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FOR 
NEXT 


up a loop to print all numbers. between 1 and 148. 


19 I= 1 

15 IF I > 100 THEN 68 
28 PRINT I; 
45l=1+1 

58 GO To 15 . 
6@ PRINT “FINISHED. 


First, a variable, I, was selected to be the counter. 
Second, an initial value of 1 was assigned to the counter 
variable. Third, the vaiue of the counter variable was 
tested to see if it exceeded the upper limit of 1860. 
Fourth, the value of the counter variable was increased 
each time the loop was repeated. 


<stn> FOR <var> = <expr 1> TO <expr 2> (STEP <expr 3] 
<stn> NEXT <var> 


A second and more concise method of constructing program 
loops is to use the FOR and NEXT statements, The fOR 
atatement assigns the value of <expr 1> to the variable, 
<var>, uses <expr 2> as an upper limit for the value of the 
variable and <expr 3> as the increment to be added to the 
variable when the NEXT statement is executed. The. 
increment is assumed to be 1 if the optional [STEP 
<expr 3>] clause is omitted. 


The NEXT statement must appear somewhere after the FOR 
statement. The variable must be exactly the same variable 
given in the FOR statement, The purpose of NEXT is to 
increment the value of the variable by <expr 3> and to 
compare its incremental value with the value that <expr 2> 
had when the FOR statement was first encountered, If the 
incremented variable is less than or equal to that value, 
BASIC interprets the NEXT statement as "GO TO the statement 
after the pravious FOR statement . However, if the 
incremented value of the variable is greater then the 
initial value of <expr 2> , BASIC interprets the NEXT 
statement as "GO TO the next wrcatement in numerical 
sequence after the NEXT statement . 


The FOR loop is always executed at least once, even when 
“expr i> is initially greater then “expr 2>,. 


Thus » using the FOR and NEXT statements, the tre7 
above could also be written as: 


a 


10 FOR I = 1 TO 1088 
28 PRINT 73 
38° NEXT I 
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48 PRINT “FINISHED.” 
RUN 


Exactly the same looping procedure is followed; however, it 
happens automatically. 


In this sample program the “body ” of the loop consists of 
one statement, statement 28. The kody of the loop may be 
any number of statements, but it is always terminated b 
the NEXT statement, 


In some program loops it is necessary to increment the 
counter variable by a value other than 1, For example, to 
find and print all even numbers in the range 5@ through 56, 
the following program could be used: 


158 52 54 56 
| FINIS HED, 


The arguments in the FOR statement may be any expression so 
that: 


108 FOR X = 1.5 TO -1.5 STEP —.1 


is a valid statement. In this case the loop is repeated 
until <expr 1> has been reduced to a value equal to of 
less than <expr 2>. With a fractional argument, successive 
addition of the increment may not produce exact values of 
the variable. The above statement terminated with X = ~-1.4 
while the statement: 


180 FOR X = 1.5 TO -1.5 STEP ~.5 
terminated properly with X = -1,.5. 


Lt is often useful to have leops within loops. These 
nested loops can be expressed with FOR and NEXT 
statements. A loop is valid as long as the <var> used in 
one loop is not identical to <var> in a nested loop and the 
NEXT statement for the first loop does not fall between the 
FOR and NEXT statements of the second loop. 


The concept of subscripting and arrays becomes extremely 
useful in relation to programming loops. Consider the 
following table, which lists the quantity of each type of 
item sold by each of five salesmen in one week, 


4~9 
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Jones Smith Brown Doe White 
Item 1 49@ 26 37 29 42 
Item 2 18 16 3 21 8 
Item 3 35 47 29 16 33 


The price of each item is Item 1— 91.25, Item 2~ $4.39 and 


In the following discussion, the quantities of items in the 
first table are regarded as the two dimensional array 
Q(I,S) where I is the item number and S is the salesman, 
The prices of the items are regarded as the one dimensional 
array P(I) where I is the item number. The following 
program calculates the total sales in dollars for each 
Salesman using data from the preceding tables: 


\> = 


17130 NEXT fF w «ow 
\> N SALES FOR SALESMAN S 
1>15@ NEXT S 

1> 200 DATA 1.25, 4.33, 2.59. 
}>. 3742 7 
1>229 DATA 12, 16, 3, 21, 8 
1>239 DATA 35, 47, 29, 16, 33 
i> RUN 

{TOTAL SALES FOR SALESMAN 
[TOTAL SALES FOR SALESMAN 
{TOTAL SALES FOR SALESMAN 
{TOTAL SALES FOR SALESMAN 
}TOTAL SALES FOR SALESMAN 


188.5. 
2171.3 
131.65 
166.55 
169.4 


Mm Wh 
ao OD 


Statements 12 through 30 read in the values of the list P, 
Statements 4@ through 88 read in the values of the table CQ. 


Statements 90 though 152 compute T, the total sales for 


each of the five salesmen, and print each answer as it is 
compu ted, | 


<stn> DIM <let 1> (<expr> [,<expr>]) [{,<let 2>]... 


July 173 


curt 


DEF 


BASIC Manual 
| 41 1 
BASIC COMMANDS AND STATEMENTS 


The DIM statement is used to provide storage for 
subscripted variables. <A DIM statement may appear anywhere 
in the program. In some other BASIC systems, <expr> can 
not be an expression and must be a set value. 


<expr> can take on any non-negative value. If the value of 
the expression is not an integer, the value is truncated to 
the next smaller integer value before the stateMent is 
executed. 


DIM A(N) defines an array of N+1 elements: A(d), A(t), 
A(2)e.eA(N). DIM A(M,N) defines an array of (M+1) x (N+1) 
elements: 


A(@,8) A(1,8). A(2,8) eee A(M,@) 
A(@,1) A(1,1) A(2,1) eee A(M,1) 


A(O,N) A(1,N) A(2,N) 2... A(M,N) 
BASIC automatically establishes dimensions of A(19) or 


A(10,18) for an array A, if a DIM statement does not 
contain A. The first usage of the array determines if the 


array will be singly Or doubly dimensioned. Thus : 


4@ DIM A(1@,132) 
20 A(5,6) = 3 


has exactly the same effect as: 
18 A(5,6) = 3 


Ifa previously dimensioned array is redimensioned to a 
smaller size, the memory difference is reclaimed bw BASIC 
and used whenever needed. For example, if an array was 
dimensioned with 10 DIM A(39@) and later by 92 DIM A(1940); 
220 array locations would be reclaimed by BASIC for further 
use, It should be noted that continually redimensioning 
arrays is a very inefficient operation and should be 
avoided whenever possible, 


(<stn>] QUIT 
When the QUIT statement is executed, control is returned to 


the Executive, 


[<stn>] DEF FN<let> (<var>) = <expr> 


where <let> must be A through 2 and <var> must be an 


unsubscripted variable name. This variable is treated as a 
dummy argument and its value is not changed by a calli to 


411 
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the function, The expression may be any valid BASIC 
expression, but it can not contain a reference to another 
user-defined function. 


The DEF statement permits the user to define his own 
arithmetic function. The DEF statement must be executed 
prior to the first call to the function in the program. 
The meaning of a function may be changed in a program and 
the interpretation of the function when it is called will 
be that defined in the most recently executed DEF 
statement, | 


The use of DEF is limited to those cases where the vaiue of 
the expression can be computed within a single BASIC 
statement. often much more complicated functions, or 
perhaps even sections of a program that are not functions, 
must be calculated at several places within the program. 
For this the GOSUB statement may be useful. 


<stn 1> GOSUB <stn 2> 
<stn> RETURN 


The GOSUB statement transfers control to <stn Z> 
Statements are then executed in statement number order 
until a RETURN statement is encountered. Then the computer 
automatically returns =o the statement immediately 
following the most recently executed GOSUB statement. 


The following program will calculate the factorial of any 
number X that is input. Note that the subroutine is 
recursive, that is, GOSUB 11@ calls itself. 


'>_5 DIM F(23) 
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<stn> ON <expr> GOTO <stn 1> [, <stn 2>]... 
<stn> ON <expr> GOSUB <stn 1> [, <stn 2>]... 


The effect of this statement is to execute a GOTO or GOSUB 


to the Ith statement number, where I is the truncated value 
of <expr>. This statement is used as a multi-~branch GOTO 
or GOSUB statement, : 


18 ON I GO TO 20, 38, 40, 50, 6@ 
28 ON N = INT(N/2) * 2 + 1 GOSUB 38, 90 


In the last example, the GOSUB at statement number 398 will 
be executed if Nis even andif it is odd the GOSUB at 
Statement 90 will be executed. 
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In addition to the terminal, data may be input from a file 
or written onto a file. By use of files, data may be set 
up beforehand or stored for use at any later date. Any 
file in the user’s file directory or some public files may 
be used as input. A BASIC program may write on any file in 
the user’s file directory. 


<stn> OPEN [#<fln>,] <fnm>, [<type>] <use> 


where <fln> is an expression that must evaluate in the 
range 2 through 9, <fnm> is either the name of the file or | 
an unsuoscripted string variable name, <type> may be either 
SYMBOLIC or BINARY (default SYMBOLIC) and <“use> is either 
INPUT or OUTPUT, 


sefore input or output to a file can be made in a BASIC 
program tne file must have been opened by an earlier 
statement in the program for input or output by the use of 
an OPEN statement. An exception to this are files numbered 
Zandi which are always open for terminal input and 
Output, respectively, 


It you only have two files, one input and one output, you 
do not need to specify [#<fln>,] since files & and 9 are 
assigned when no file number is given. File & is the 
default output file number and file 9 the default input 
file num ber. The following pairs of statements are 
equivalent: 


5 OPEN #8, /SORT-OUT/, OUTPUT 
6 OPEN /SORT-OUT/, OUTPUT 


7 OPEN #9, /72-37/, INPUT 
© CPEN /72-47/, INPUT 


tO use more than one file either for input or output, all 
mut one of the files must ove opened by assigning a file 
number 2 through 7. the system only allows three disc 
files to be Open at one time, out file numbers <2 through 4% 
are allowed for compatibility with FORTRAN-IT, The 
following example opens three files for input, each witn 
their own unique file number. Tne first uses the dJefault 
number 9. | 


ig: LET XS 4 
15 OFEN /1/, INPUT 
20 OPEN #14+ABS(X), /2INPUT/, INPUT 
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25 OPEN #3, /3/, SYMBOLIC INPUT 


A file which is open may be reopened, in which case the 
file is first closed and then opened. This will reset the 
file’s location counter to the first line in the file in 
much the same way the RESTORE statement resets the data 
Statement pointer to the first data statement, 


The two sets of statements: 


1 OPEN /A/, INPUT 
2 OPEN /B/, INPUT 


1 OPEN #9, /A/, INPUT 
2 OPEN /B/, INPUT 


both first open file /A/. Since the default input file. 
number is 9, the first statement of each group opens /A/ as 
file 9. But then the second statement opens file /B/ for 
input (as file 9, since no file number is specified), with 
the result that file /A/ will be closed and no longer 
accessible unless it is reopened. 


symbolic File Input or output files are ordinarily symbolic. This means 
that all data is converted from internal macnine 
re presentation to normal printing characters, or vice 
versa. Secause of the conversion from machine 
representation, extra CPU time is used for writing or 
reading a symbolic file. 


Sinary File To eliminate input/output conversion time, binary files 
Should be used. Binary files do not convert data to normal 
printing characters, but instead, leave the data in tne 
internal machine representation. | 


PCT 20 (<stn>] INPUT FILE [#<fln>,] <ilist 
acCePT FILE [<stn>] ACCEPT FILE [#<fln>,] <ilist> 


Once a file has been opened for symbolic input, the user 
may read from it by using the INPUT FILE statement. Eacn 
time the” INPUT FILE statement is encountered during 
execution, the next value appearing on tne tile sseci fied 
is read and assigned to the next variable in the list of 
variables in the INPUT FILE statement. If tne input file 
was oasened without specifying a file numver or by 
specifying file number %Y, then eitner of the following 
statements will read from the input file: 


1% INPUT FILE A, 3, C 
20 INPUT FILE #9, A, B, C 
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Ifa file was opened by specifing a file num ber between 2 
and 7, the INPUT FILE statement must include that same file 
num be Fe | 


10 OPEN #6, /A/, INPUT 
38 INPUT FILE #6, A, B, C 


Only legal BASIC numbers may be read from a file (excepting 
into String variables as outlined in Chapter 7). The 
numeric fields in a data file may be separated by commas, 
Spages or (ret)s. Since BASIC treats spaces ina file as 
an end-of-field character, the user may not imbed spaces 
in the numeric fields. The only non—numercic characters 
allowei are: comma, space, E (for scientific notation), 
plus sign, minus sign and carriage return. A Carriage 
return ends a line and is also a valid end-of-field 
Character, A line consisting of Spaces anda carriage 
return will be ignored. 


(<stn>] PRINT FILE [#<fln>,] [<olist] 
[<stn>] TYPE FILE [#<fln>,] [<olist>] 


Once a file is opened for symbolic ocutput, the user may 
write on the ‘file using the PRINT FILE statement. Each 
time tne PRINT FILS2 statement is encountered during 
execution, the value of each e@xoression appearing in the 
list of expressions is appended to the file specified for 
Output in the same order that it appeared in the list of 
expressions. When a file is first opened for output, the 
file location pointer always points to the beginning of the 
file. 


If tne output file was opened without specifying a file 
number or by specifying file number s, then either of the 
following statements will write on the output file: 


1@ FRIMT PILE A, 8, ¢ 
Zid PRINT FILE #8, A, B, C 


If a print statement is only to write a carriage returm 
onto tne file, the comma and output list may be omitted: 


1o PRINT FILE #3 
Ir a file was opened by specifying a file number between < 
and 7, then tne FRINT FILE statement must inclucGe that same 


file numvecr. 


10 OPEN #5, /A/, OUTPUT 
2g PRINT FILE #5, A, 3, C 
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The file output list may also contain strings of characters 
enclosed in quotes. 


15 PRINT A;B “ POINTS, DATA =" N 
16 PRINT FILE #1, A;3 ° POINTS, DATA =" N 


[<stn>] READ FILE (#<fln>,] <ilist> 
(<stn>] WRITE <expr> [, <expr]... 
(<stn>] WRITE FILE (#<f1n>,] <expr> [,<expr>] ve. 


Once a file has been opened for binary input or output, 
then the apvove statements will handle binary data in the 
Same manner as the INPUT FILE and PRINT FILE, 


<stn 1> IF EOF (<fln>) = <var> THEN <stn 2> 


See EOF function for detecting end-of-~file condition. 


[<stn>] Close (<fln>] 


where <fin> is an expression. If no expression is given, 
or if the expression is negative, all files are closed. If 
the expression is co or 1, or if the file is already closed, 
nothing will nappen. Otherwise, the file will be closed. 
some examples are; 


2 CLOSE 

CLOSE —1 

99 CLOSE 5 

CLOSE (A + B) / 2 
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Chapter 6 — MATRIX STATEMENTS | 


In BASIC, there are a number of statements involving Matrix 
operations. Any array used in a MAT statement must have 
been dimensioned in a DIM statement. No default dimensions 
are assumed for matrix arrays, but once the dimensions have 
been established a MAT statement can change the dimensions 
of an array as long as they do not exceed the dimensions 
specified in the DIM. Maximum dimensions are about 56 by 


36 for a two dimensional array or about 3152 elements for a 


One dimensional array. 


There are several ways to establish the values of the 
elements in a matrix: . 


1) By reading values into the elements with any of 
the input statements. 

2) By setting the elements to zero with the ZER 
Statement, 

3) By setting the elements to one with the CON or ONE 
statement, 

4) By setting a matrix to the identity matrix with 
the IDN statement. 


~{<stn>] MAT READ <i lis t> 


The MAT READ statement will result in the input of all of 
the elements of a matrix. The values of the elements are 
processed row by row from a DATA statement. More than one 
matrix may be included in the input list but the iist may 
not contain string variables or simple variables. 


1B DATA 2,3 442,253 93 94455455657 4859 
15 DIM A(3,3), B(3,2) 
20 MAT READ A, B(2,2) 


{<stn>] MAT INPUT <ilist 
[<stn>] MAT ACCEPT <ilist> 


These statements function in the same manner as the MAT 
READ statement, except that input values are from the 
terminal instead of from DATA statements. 


P15 DIM A(3,3), 313.2) 

re MAT INPUT A, 3(2,2) 

}>RUN 

VP] 5? 2523474575576, 77 78,79 5710 5 711471 2,713 (es 
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MAT INPUT FILE 
MAT ACCEPT FILE 


MAT READ FILE 


MAT PRINT 
MAT TYPE. 


MAT PRINT FILE 
MAT TYPE FILe 
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(<stn>] MAT INPUT FILE <ilist> 
[<stn>] MAT ACCEPT FILE <ilist> 


These statements function in the same way as the MAT READ 
statement, except that input values are from a disc file 
previously opened for symbolic input. 


If the file is binary then the following statement is 
used: 


{<stn>] MAT READ FILE <ilist> 
{<stn>] MAT PRINT <mlist> 
(<stn>] MAT TYPE <list> 


These statements type the elements of a matrix on the 
terminal, row by row. Subscripts may not be included. | 


1540 DATA 2.3.4 .2,253 3 344544555547 89 
13) 2 


1>15 a3 3 

[> T A, B(2 

\>5Q0 MAT PRINT A, Be 

}> RUN | 

ee 3 4 
1 2 2 3 
ae 4 5 
} 4 5 

; 6 7 


To get an extra blank line between the matrices use a 
string containing a carriage return. It is important here 
not to Put a comma or semicolon after the string, because 
if you de, the first line. of the second array will be 
indented a few spaces. | 


>1Q DATA 2.3 44.2.243 3940554255647 9849 
>15._ DIM - B(3 | 

55g MAT PRINT ; 

(oo MAT PRINT As Sh Bi 


3 
2 
4 


Rete Wen Cth Mite ange i QD I aie ann Ah ON) els oe EE OP age ae ae a ee 


RUN 
2 

2 

a 

4 5 

6 7 

(<stn>] MAT PRINT FILE (#<fln>,] <nlist> 


{[<stn>] MAT TYPE FILE (#<fln,] <mlist> 
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These statements are like MAT PRINT, except that output is 
to a file previously opened for symbolic output. If the 
file is binary, use either of the following statement 
forms | 


{<stn>] MAT WRITE <ilist 
{<stn>] MAT WRITE FILE <ilist 


(<stn>] MAT <vaxr> = ZER[(<exprm> [,<expr>] )] 


This statement sets all elements of the matrix to zero. 


1>12 DIM A(3.3) 

i> 20 MAT A = ZER 

1240 MAT PRINT A 

i> RUN 

1 g f, tf, 
1g g , 
| g Z g 


Lt subscripts are used, the statement will set the 
dimensions to the values of the expression(s). 


ad 


[<stn>] MAT <vamd = CON [(<expr> [,<expr>])] 
(stn>] MAT <var> = ONE [{<expxm [,<expr>])] 


This statement sets all elements of the matrix to one, 
Like the ZER statement, if subscripts are used the 
statement will set the dimensions to the values of the 
expression(s). | 


Sum 
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[<stn>] MAT <var> = IDN [(<expr> [,<expr>])] 


This statement sets all elements of the principal diagonal 
Of the square matrix to one and all off diagonal elements 
to zero. 


(P19 DIM A(3 43) 
|? 4AT A = 
{> T PRINT A: 
1 > RUN 
1 4, QO 
) | 4) 
an) g 1 


{<stn>] MAT <var 1> = <var 2> 


This statement sets the values of the elements of <var 1> 
to the values of the elements of <var 2D. If the. 
dimensions of <var 2> are (M,N) then the dimensions of <var 
1> are set to (M,N). | 


30 MAT PRINT C3 


4 
3 
S 


gd we) 


[<stn>] MAT <var 1> = <expr> * <var 2> 
[<stn>] MAT <var 1> = <var 2> * <expr> 


The elements of a matrix may be multiplied, element b 
element, by a constant value resulting from the evaluation 
of any legal BASIC expression, The dimensions of <var i> 
will be set to the dimensions of <var 2>., <var i> need not 
be distinct from <var 2>, 


[<stn>] MAT <var 1> = <var 2> {+,-} <var 3> Subtraction 
Matrix addition or subtraction sets the elements of <var i> 
equal to the sum or difference of the corresponding 


@lements of two (not necessarily distinct) matrices, <var 
2? and “var 3>. The two matrices to be added or subtracted 


6.4 
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must have the same dimensions and <var 14> will have its 
dimensions reset, 


1>15 3,3 3 3 

\> 2.3 2,2,3 5 .4,5,6,.7 ,.8,9,1 
{>21 DATA 11.12.13 .14,15,16,17 18 
|? 2 MAT READ A, 3 

(P20 MAT C= A+ 3 cs SS ] ad 

(735 MAT PRINT CC, &M 

i> = A - 3B 

1>45 MAT PRINT C 

} > RUN 

1 6 8 10 
a) 12 12 
43 15 17 
laZ =a -2 
Vw 5 -6 -~§ 
\-7 ny Pony | 


[<stn>] MAT <var 1> = <var 2> * <var 3> 


Matrix multiplication uses three distinct matrices. If 
<var 2> has dimensions (M,N) then <var 3> must have 
dimensions (N,P). After multiplication the dimensions cf 
<var 1> will have been reset to (M,P). 


i 
rit 
*G 
a 
Z 
J 


>5@ DATA 3D Ast 5 2pm 597 19 2654.5 34192 
>RUN 


7 31. 33 28 
~16 33 39 25 
17 45 31 32 


j 
! 
4 
j 
4 
t 
‘ 
] 
i 
' 
i 


(<stn>] MAT <var 1> = TRN(<var 2>) 


This statement is used to calculate the transpose of a 
matrix, Both matrices must be distinct. If <var 2> has 
dimensions {M,N), then the TRN statement sets the 
dimensions of <var 1> to (N,M) and each element (I,J) of 
<var 1> is equal to the element (J,I}) of <var 2>. 


6,743.9 .10 41 
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{<stn>] MAT <var 1> = INV(<var 2>) 


This statement performs two calculations; the inverse and 
the deteminent. <var 2> must be square and need not be 
distinct from <var 1>. The dimensions of <var 1> will be 
reset to the dimensions of <var 2>. The value of the 
deteminent is stored in element (0,8) of <var 1>. 


1>10 DATA 1.243 440324535455 2957 5959210,11 
~—6$>45 5,5 5.5 545 

{> 20 MAT D 

Sao gat oe aA 

|> Tc z= A *# . 

[>4@ PRINT  DETERMINENT = B(g,@) 

1>45 MAT PRINT B, c¢ 

i? RUN 

\DETERMINENT = 4 

l=e25> 4°: =. a) =—.25 

las = 2 

4375 25.“ a1425° 

1 4 =-,1455191E-$19 —.2918383E-12 

| ,5828766E-19 1 =~. 2919383 E-18 

1 9g —.2910383E-10 1 


Sometimes when the original matrix is multiplied with its 
inverse, the result does not give a perfect identity matrix 
Since the computer is limited to 11 significant digits. 
If, during inversion, an element of the matrix is reduced 
by a factor of 10 to the ninth or greater, the element will 
be set to an exact zero. If this element later appears as 
a pivotal element in the inversion process, execution of 
the program will be ,terminated and the error message 
MATRIX NEARLY SINGULAR will be typed. 
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Chapter 7 — STRINGS 


BASIC has been extended to handle groupings of characters, 
Called strings. Strings may now be used in INPUT or PRINT 
statements and some character b character manipulations 
may be done on strings. 


"[<characters>]~ 


A string consisting of from @ to 302 characters enclosed 


between quotation marks is called a literal. 


1@ PRINT “THIS IS A LITERAL STRING” 
28 PRINT 


<let>$[(<expr>)] 


A group of characters may be aSsigned as the value of a 
variable which is then designated as a string variable. 
Note ‘Chat numeric quantities may not be assigned to string 
variables. String variable names consist of a ietter, A~Z, 
followed by a dollar sign. Initially the value of a string 
variable is the null string or, no characters. 


13 A$ = "THE VALUE OF A IS THIS STRING” 
28 BS= 


A string variable may be a singly dimensioned a/vrray. 
Double subscripts may not be used. If a subscripted string 
variable, A$, is referenced mt has not been previously 
dimensioned, it is assigned the default dimension A$(1@). 
If more then 11 locations are to be used the array must de 
dimensioned in a DIM statement. 


1Q DIM Bs(15) . 
26 A$(8+1) = “NEED NOT BE DIMENSIONED 
32 BS(13) = “MUST BE DIMENSIONED 

42 BS((N+M) /2) = “ 


Each element cf a string array is a string and is 
independent of all other string variables. 


Fm 
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JELEMENT IS. A 
Expression | <operan@ & <operand 
String expressions are similar to numeric expressions in 
that they are constructed by repeating the form “operand & 
<operan®, where <operan@ is either a string literal, 
string variable, or string function. & is the amperand 
string concatenation operator. String expressions, 
therefore, make it possible to form one string from 
multiple strings. | 
EACH ELEMENT IS A UNIQUE STRING 
Notice that in all of the above examples on strings, the 
contents of the string variable have been assigned by a 
string assignment statement in the form: 
Cvar> = <expr> 
where <var> is any valid string variable name and <expr> is 
any valid string expression, be it a string literal or 
another string variable. 
IF THEN (<stn 1]> IF <releexpr> THEN <stn 2> 
IF GOTO (<stn 1>] IF <rel-expr> GOTO <stn 2> 


Strings may also appear in the <rel-expr> portion of the IF 
THEN statement. If the <rel-expr> is true, transfer will 
go to “stn 2>3 otherwise, transfer will go to the statement 

following the IF THEN statement, 


26 IF A$ = BS THEN 12 
25 IF A$(N+1) d= JASs(N) GO TO le 
30 IF AS & BS < "LITERAL THEN 100 


Two strings are equal if they are cf the same length and contain indentical 
characters. A string xX is greater than b 4 if, during left-to-right 
cna racter-oy-character comparison, a Character in xX is higher in the collating 
sequence than the corresponding character in Y,. If ail charcters match 
througnout the length of the shorter string, then the longer string is greater. 
See Appendix A which lists the character collating sequence. 
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READ 


INPUT 
ACCEPT 
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String variables may be assigned by READing string literals 
from DATA statements. The following sequence of statements 
would assign the alphabetic month names to string array M$ 
and the corresponding numeric days of the month to the 
array, D. | 


12 DIM Ms(12), D(12) 

26 FOR I = 1 TO 12 

30 READ MS(I), D(TI) 

4 NEXT I 

52 DATA "JAN" wal, “FEB_, 28, _MAR_,31, "APR, 33, "MAY", 31 
60 DATA JUN" ,30, "SLY | a: “AUG a "SEP" ,38, OCT ,31 


Cd 


72 DATA "NOV" °30, "DEC ™ sot 


Strings may also be inputed from tne terminal by using the 


INFUT statement, The character strings may be entered in 
any of the following four ways. 


BS sl bape 
‘i <characters>|]’ 
[<characters>] (&D) 
[<characters>] (ret) 


With the first two input forms, BASIC will accept and store 
characters into, the string variable until the ending 
dou ple-quote Cg (1£ the beginning delimiter was a 
double-quote) or single-quote character is entered, The 
Gelimiter quotes will not be included in the string. If 
the string being entered is not begun with quotes, it must 
be terminated with either a Control-D (&D) or a RETURN 
(ret). 


i>Lg INPUT As(1), As(2), A$(3) 
INPUT As({4) | 
'>32 PRINT. 1 Z! 
\>40 PRINT Ag{3)  &™ {4 

1 > RUN 


? DOUBLE QUOTES "? Sti E“? CONTROL D(&D 
? CARRTAGE RETURN( ret) 

DOUBLE QUOTES > 
SINGLE QUOTE 

CONTROL D 
C 


ARRIAGE RETURN 


‘The imput list may be a mixed arrangement of string and 
numeric arrays. 


30 INPUT As, X, Y, A8(3) 


i 2 
STRINGS 


INPUT FILE. 


ACCEPT FILE © 


PRINT 
TYPE 


PRINT FILE 
TYPE’ FILE 
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Strings may also be input from a file previously opened for 
Symbolic input with the INPUT FILE statement. The 


Character strings may be entered in any of the following 
three ways. 


te haracters>]” 
’L<characters> |’ 
[<characters>] (ret) 


The method of terminating a string with a control D does 
not wOrk as with input from the terminal since the system 
regards it as the end-of—file. 


Strings may be output to the teletype by using the PRINT 


statement. Literals may be included in the output list. 


MONTH 1 IS JAN WITH 31 DAYS 
{MONTH 2 IS FEB WITH 28 DAYS 
iMONTH 3 IS MAR WITH 31 DAYS 
iIMONTH 4 IS APR WITH 32 DAYS 


Strings may also be output to a file previously opened for 
symbolic output. | | 


1@ PRINT FILE A$, “EXAMPLE” 
28 PRINT FILE #8, As, EXAMPLE” 
30 PRINT FILE #6, A$, “EXAMPLE 


Strings are printed without the quote delimiters, so if 
there is more than one string per line and the strings are 
to be read later as BASIC input, then quotes will have to 
be added to differentiate between strings. Note that aJJdz 
is the internal value of a doubdle quote character, 


SECONDS: 


Judy 1973 


CHANGE 


String to <var> 
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i> RUN 
'PIRST 
‘SECOND 


{<stn>] CHANGE <string var> TO <vax> 
(<stn>] CHANGE <var> TO <string var 


In either CHANGE statement, <string var> wili contain a 
string of length N, <var> will have the zeroth element 
equal to N and the first through Nth elements equal to the 
internal decimal code of the corresponding character of the 
String. <string var> must be either a subscripted or 
unsubscriptred string name and <varmd must be a singly 
subscripted array previously Gimensioned by a or M 
statement; no default values are available. 


Changing a <string var> to a <var> stores the length of the 
string in the zeroth element of the <var> and the internal 
Gecimal Value of each character of the string into 
successive elements of the array. 


2S DIMI) 


218 Bs. = sere 


If the string is longer than the dimensioned length of the 
array, the message “ARRAY OUT OF BOUNDS will be printed, 


Presumably some manipulation of the string is desired, such 
aS making sure that all letters are upper case. Since the 
value of a lower case character is between = and 9d, it 
can be converted to upper case by subtracting 3 


|>5_ DIM M(132) P 
1g 438 = String 


i>4 = 5) 


re-) 
STRINGS 


<var? to string 


OPEN 


CHAIN 
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Perhaps a string is desired from an array. To change an 
array to a string makes a string whose length is the value 
of the zeroth element of the array and converts the numbers 


din each element of the array to the next character of the 


string. 


<stn> OPEN [#<fln>,] <fnm>, [<type>] <use> 


The <fnm> file name in the OPEN statement can be replaced 
by an unsubscripted string variabie, the value of which is 
the file name. If an unslashed file name is to be used 

its name must be spelled out in full (no substituting “TEL 

for TELETYPE ). String expressions however, are not 
allowed in lieu of file names. 


For example, assume that a program must sequentially read 3 
files: /A/, /B/ and /C/. The following statements will 
open the files in order and transfer to statement number 
280 when the last file has been opened: 


18 A$(1) = T/a/- 
28 A8(2) = |/B/ 
38 As(3) = /C/ 
40 N = 1 


50 IF N > 3 THEN 200 

60 A$ = A$(N) 

74 OPEN #3, A$, OUTPUT 

86 N=N+ 1 | _ 
90 PRINT FILE #3, “OPENED 
12@ GO To 5¢ 

112 QUIT 


<stn> CHAIN [<fnm>] 


The <fnm> file name in the CHAIN statement can be replaced 
by an unsubscripted string variable, the value of which is 
the file name, just as in the OPEN statement. 
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String Functions 


DA T(X) This function will always return the current date as an 18 
Character string of the form YY/MM/DDphhima:ssb where 
Y¥=year, MM=month, DDeday, nh=hours, mm=minutes, ss=seconds 
and b represents a blank. The variable name and value of 
the numeric argument, X, is unimportant, ct must be 
present nevertneless. 


1-19 As = DAT(2) 
i? 20 PRINT As 

\> 

(73/84/23 15232311 


CHR(X) This function returns a one character string equivalent to 
the internal decimal value of the argument X. If X is less 
then @ or greater than 255, the function returns the null 
string. 


ip PRINT CHR(55), CHR(21) 
\W 5 


STR(X) This function will return a 2-13 Character string 
equivalent to the value of its numeric argument, X. The 
String will contain 7 significant digits, a minus sign if 
negative and scientific notation if needed. 


This function, in conjunction with function HED, would be 
useful if a numeric value needed to be printed vertically 
(along the left margin of a plot printout possibly). 


j>PRINT STR(PE*~1 35-11) . STR(5+ 
tm .31 4159 2E-12 


KE D(S) This function returns a one character string consisting of 
the first character of the argument string, S. The 
argument remains unchanged. if the axjgument string is 


null, then the function returns the null string. 


AL\S) This function returns a string consisting of all characters 
in the argument string, S, except the first character. The 
argument remains unchanged. If the argument is either null 
or only one character in length, TAL will return the null 


7=3 
STRINGS 


LEN(S) 


NUM (S) 
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string. The example shows how to print a vertical heading 
with either alpha or numeric values. 


[>40 As= "HEADING - 

$= S$ #4 4 

{> E 13 

gece = HEDIS 

(230 AS = TAL(AS) 

eoETeRT VED 

{> = T 

1743 PRINT C$, Ds 

i> 20 NEXT fT 

{2 RUN 

tH = 

\E ‘ 

iA 3 

iD 1 

ir 4. 
4N 1 

iG 5 

! 9 

H 2 

' E 

os 

1 

1 2g 


This function returns a numeric value equal to the num ber 
of characters in the argument string, S. If the string, S, 
is null then zero is returned. 


|>PRID N(DATA(@ EN(TAL( "xX" 
: 18 2 


This function returns a floating point value equivalent to 
its string argument, S. S must contain a string which has 
a numeric counterpart. 


RINT STR(PI*-1,9E-11) , NUM 
J~03141592E-18 —.314159 2E-10 


If the argument string is not valid (contains a bad 
character for instance), an error message will be displayed 
and  .57986@4E77 (positive machine infinity) will be 
returned. 


i PPRINT NUM ( "3214356 oS 
{BAD STR CHAR 


} 097 89 604E+77 
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ASC (S) This function returns the internal decimal value of the 


first character of its string argument, S. 


{>PRINT ASC(“TEST”), ASC(CHR(51)) 
52 54 | 


If the string is null, ASC returns the value -1; else it 
returns a value in the range @ = 255. 
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Formatted Input/Output may also be done in BASIC. A line 
is formatted according to a picture statement. 


<stn> :<picture string> 


Tre colon denotes & picture statement, <picture string? is 
the actual picture or image by which the data is to te 
input or output. The gicture string begins in the first 
Character space Scllowing the colon. 


Fictures are Givideg into fields: numeric, string or 
diteral, a numexic field consists of mainly Jlibras (#4), 
with an <optional sian at the front, an optional decimal 
point scmewnere in the libras, and an Optional e€exponent 
(Cenoteqd oy 4 exclamation points) at the end. If the 
Optional exponent is used, the decimal point must appear 
somewnere in the libras. A numeric field may be terminated 
iy a commercial at sign (%), which acts lixe a libra in 
that it reserves a place for a dicit, but the @ will always 
pe the iast character of the field. zxamcoles: 


1O 3 ## FF 
Zu 4K eH 
sit —#A FF 
4&e $ Hef 
Sii+h ete LTT 


uw 
Ow tee ott ah 
onsists of any number of collar signs and 


rieia ¢ 
terminated with a single quote (")}, which marks the 
acter of a strinc field. 


not 


fa. 
0 


& Literal field consists of any characters that 
sionigty numeric of stri 


wote that Sousie gquotes ( } are not used for literal fields 
in picture strings. DLfferent field tvses may be mixed in 
a Suete re seein. 

15 s#e.,a#ev#litiithat is numeric and this is literal 

“J 3$S$##$$String, numeric and literal mixed. 


an) 
1 
sted 


Bae Z 
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INFUT USING 
nCCee? USING 


Num pers 


Strings 


q 


It is also possible to specify the picture string directly 
in the input or output statement instead of referencing 
another statement number. Any string expression may be 
used in place of the statement number and it will act as 
the picture string. For example, instead of using the 
following two statements: 


12 s###@SSSS 
<Q INPUT USING 10, A, BS 


Either of the following INPUT statements could be used and 
would be identical. 


20 INPUT USING "###@g6s6", A, BS 
30 FS(3) = "###essss 
40 INPUT USING F$(3), A, 3s 


Runtime formats should be used carefully because they cause 
a substantial amount of overhead in C?7rU time each time the 
format is used. 


[<stn 1>] INPUT USING <stn 2>, <ilist> 
[<stn 1>] ACCEPT USING <stn >). <ilist> 


where <stn 2> is the statement number of the picture string 
and <ilist> contains variables that may be either string or 
numeric. INPUT USING reads formatted input from the 
terminal. 


As many characters as the field is wide are read from the 
input dine. Once the field has been read, it. is converted 
to binary using the free field converter ~ the picture only 
reserves a particular width. Thus signs, exclamation 
froints and decimal points in the picture have no effect. 


3-39-40 432, 55E3 
3 -5 ~4¥ 032 35d 


[> $O4+# O-# OF, OF # 

1> 22. an EUT USING 12 3 ore: 
i> 30 NTA: By Cz Di 

1 > RUG 

i? 

3. 

{ 

i 


If the input variable is a string, the characters are 
stored aS the value cf the string. 


ie dee Bale es BD Ne telat et eee ane pts Sot 
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If there is a literal string 


3.3 
FORMATTED INPUT/OUTPUT 


in the picture, as many 


Characters in the input line will be skipped as the literal 


is long e 


iid :LITERALSSS$$ 

QO TNPUl USinG-—te 
bere PRINT A$ 
iP BUN 
'? SOME WILL BE MISSING 
Vib 


? 


A&A Carriage return (&4 or &155) 
String sKifs to the beginning of 
imput then proceeds according 
picture, 


ae 


Sar 

\> RUN 

1? 1234 

15675 

| 12 56 

> 

|? 

\? 

2 

1> 

a 

io 

{ 

{ 

i> 

t 

iD 

i? 

j 

i? 

ia 

fre . 

— 

i 

i 
wnen the end of @ picture is Yreacn 
waing @4GaUS Tec, tne sieture is Si 

iP id Ma 

pee car dL VokbaG Ley 4 fig 3, % cs 

ae mee eae ee ee 

i? aU 

pe S74 

: 2 7 1 


OS) 


appearing in the picture 
the next input line. 


to the remainder of the 


ned 


without the input list 
moly rescanned,. 
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If a (ret) is read from the input line while getting a 
field, the field is immediately terminated. Thus INPUT 
USING may be used to read awhole line as a string. No 
trailing spaces will be appended. 


[P12 3$$sss$ssssss 

sore ee TNEUT USING 10, A$ 
130 PRINT AS IS ALL 

\> RUN 

{? RETURN 

\RETURNIS ALL 


This also means that if a (ret) is read in the middle of a 
numeric field, no zeros willbe added at the end. 


1710 s#4t ese se 
{>2g INPUT USING 19, A 
120 PRINT A 
{> RUN 
7 333 
; 233 
When a (ret) is read on the input line before the input 


list is exhausted, all remaining input variables will be 
either zero or the null string. 


1719 ### OSS. 

{> 20 iNPGT USING 10, A, 3, A$ 
}>30 PRINT A, 5, A$ 

i> RUN 

1? 2Ba7. | 

, 7 g 


When the variable list is exhausted, any remaining 
Characters on the current input line are skipped. 


{<stn ne PRINT USING <stn 2>, <ilist> 
[<stn 1>] TYPE USING <stn 2>, <ilist> 


wnere <stn 2> is the statement number of the picture string 
and the variables in <ilist>? may be either string or 
numeric. These statements write formatted output on the 
terminal. 


A numeric value may be output in the form of a rounded 
aateges by using a field of multiple ‘#’ characters, one 

"#" for each integer digit desired, The value will be 
right justified in the indicated field. | 


(10 saeed OF HH 
'>20 PRINT USING 19, 55, ~3 
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ee) 


UN 
> 


1? 
5 =—3 


Numeric values may be output as fixed decimals by using the 
field form <integer. <decimal>; where <integer> is a string 
of °#’s denoting places to the | left of the decimal point 
and <decimal> is a string of ’#’s indicating the number of 
places to the right of the decimal. 


DO s#ttet #044 # 


RUIN 


937,5017.56 


ON NINN 


Scientific notation output format is denoted by including 
four exclamation points (!) or up arrows (T) after a fixed 
point format. The exponent will be output as the Character 


& followed by either a plus or minus sign and two digits 
which represent the exponent, 


1>5 A = 1987.6 

P10 s#e#e# LIL eb siht TT 
\> 20 PRINT USING 10, A, A 
Vee 


»288E+231993,75E+21 


In all of the above pictures, no explicit provision has 
ceen made for siqns. When no sign is specified BASTC will 
cutput a minus siaqn if the number is negative. If the 
number is positive, no sign will ce output. If it is 
Gesired to specify the sign, either a plus or minus) sign 
may be put before the numper fomnat. If a plus sign is 
used, a plus sign will appear if the number is positive or 
Zero and a minus sign will appear if tne number is 
negative. A minus sign prints a space if the numoser is 
Greater than or equal to zero; it prints a minus sign if 
tne number is less than zero. | 


i? 

i>4c PRINT USING 32, -3, 5 
oS tate Gm ot 

\> ow PRING Yow 30, ~3 4 > 
po euia 

H : 

oes 

i 

j 

| 

{ 


strings String varlables and expressions may be output with a 
picture format by using a field consisting of multiple 


¢ 
i 
qi 


8 5 
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FORMATTED INPUT/OUTPUT 


dollar signs ($). The string value will be left- justified 
in the field with trailing blank fill if the string length 
is less than the field width. If the string length is 
greater than the field width, only the left-most string 
Characters will be output. 


ae ° 


HI hl HO 


Character strings within a picture will be output literally 
unless there is an ampersand (&) in the string. If the & 
is followed wy a 1-3 digit octal number, then the 
corresponding character will be ocutput. The ampersand may 
also be followed oy letter A- Z, in which case the two 


characters will be replaced iw the corresponding 


controle-character, 


> 14 yrs A an a 
RI 


When a picture does not contain as many numeric or string 
fields as the list contains variables, the picture is 
simply repeated from the beginning. No (ret) is output 
when the picture is repeated; &t the user may include a && 
or &155 at the end of the picture and the (ret) will be 
output Only when the picture is repeated, 


VV 


g_PRINT US 1 
PR 


TUG 3 Og ge 
3 


WT USING 43 


ROE 


eter eee cin coe ME Oe IN TR nh ee nga Sem QUE Mee Sat Neth cima canes ae EY 


Op & tt mvs 


oe 


retains aalicae 


bASTC normally terminates the print line with a (ret) artes 
the last expression nas been written. saowever, if tne last 
expression in the PRINT USING list is fcllowed sy a comma, 
BASIC will not output the (ret). 


soue 
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PRINT FILE USING 
TYPE FIL USING 


MAT TiveUT USING 
WAT ACCEPT USING 
od ERDAS USL 
bagel TY PE USING 
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FORMATTED INPUT/OUTPUT 


(<stn 1>] INPUT FILE (#<fln>,] USING <stn 2>, <ilist> 
{[<stn 1>] ACCEPT FILE [#<fln>,] USING <stn 2>, <ilist> 
[<stn 1>] PRINT FILE [#<fln>,] USING <stn 2>, <ilist> 
[<stn 1>] TYPE FILE [#<fln>,] USING <stn 2>, ‘<ilist> 


By using the above statements, input or output may be 
formatted when used with a file previously opened as 
symbolic. 


(<stn 1>] wAT INPUT USING <stn 2>,. <ilist> 
(stn 1>)] Mall aCCLrT USING <stn 2>, <ilist> 
L<stn 1>] MAT PRINT USING <stn 2>, <ilist> 
[<stn 1>] MAT TYPE USING <stn 2>, <ilist> 


rormatted matrix input or output can use the terminal by 
following the same rules as for formatted input/output to. 
the. terminal. 


In addition, the Lal PRINT USING statement will cause the 
picture to be rescanned as often as is necessary to print a 
matrix row. A (ret) will be output after each row. 


Le DI X(3 ,5) 
20 MAT READ X 
O, 1Liek2 


62 i 
72. PRINT L$ 


Prone dibs atihseracdlipnsseinntcdpeatnnnrsenabarativandl nisotipmardinatlionnalipaactanredicansles otitamlitcamticc:dinretiensteandhranadiieaed 


{31 632 33.0 34 


USinG [<stn 1>] MAT INPUT FILE [#<fln>,] USING <stn 2>, <ilist> 


iLAd ACCEPT SLLE USInGi<stn 1>] MAT ACCEPT FILE [#<fln>,] USING <stn 2>, <ilist> 
wat FADS? FILE USING (<stn 1>]. MAL PRINT FILE ([#<f£in>,] USING <stn 2), "<i lis tp 


bags e ie rk Loree dnd eo Vol are 


(<stn 1>] MAT TYPE FILE [#<fin>,] USING <stn 2>, <ilist> 


rormatted matrix input/output may ce to a file previcusly 
Opened for symbolic cutput oy following the above rules for 
formatted matrix output. - 
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ARRAY DIM TOO LAIGE 


ARRAY OUT OF BOUNDS 
BAD EXPONENT 
BAD FILE NAME 
BAD INPUT CHARACTER 
BAD STR CHAR 
CHANGE STMT ILLEGAL 


DIRECT ONLY 


ERR IN FORMAT 
ERROR IN PICTURE 


EXCESSIVE GOSUB NESTING 
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Chapter 9 = ERROR MESSAGES 


Note that error messages are followed by the statement 
number of the last statement executed before the 
error. 


The size of an array dimensioned by a DIM statement is 
too large for the available storage. 


You are trying to place values into an array where the 
Subscript is bigger than the dimensioned value. The 
dimensioned value may be either a default value or an 
assigned value in a DIM statement. 


The exponent of a number has an illegal character in 
it. . 


A file name that is not in your directory or a 
non-existent public file name follows the command 
LOAD, . 


You typed a character that is illegal in a numeric 
field in response to an input statement. Retype the 
field. | 


The function NUM was called with a string which has a. 
Character that is illegal in a numeric field. 
Positive machine infinity is return and the program 
continues running. 


The variable name used in a CHANGE statement is not a 
valid array name, 


You may not insert a command like RUN, LIST, DEL, LOAD 
or SAVE into a program as a program statement. — 


There is a runtime format processing error. 


This. error occurs from a PRINT USING statement where 
the picture statement number is a string or string 
variable and that string contains a format error such 
as only three I!’s. This error also occurs if a 
formatted input/output statement references a 
statement which is not a picture. 


Too many GOSUB statements without executing ai RETURN 
statement. The maximum number allowed is calculated 
by the following: 


9—2 
ERROR MESSAGES 


FILE AT EOF 
FILE CLOSED 


FILE TYPE WRONG 
FILE USE WRONG 
FORMAT NOT FOR NUMBER 
FORMAT NOT FOR STRING 


FUNCTION ILLEGAL 


IMPROPER NESTING IN FOR 
LOOP 


INCOMPLETE 


INCONSISTENT DIMENSIONS 


LINE NUMBER REQUIRED 
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(<no of FOR>) * 7 + (<no of GOSUB>) <= 2048 


It may mean that subroutines are being exited pw GOTO 
or IF~THEN statements instead of RETURN. 


Attempt to read past the end of the file on a READ 
FILE or INPUT FILE statement. 


Attempt to read or write ona file that has 
opened by an OPEN statement. 


not been 


A file was opened as symbolic and you are trying to 
use it as binary or else it was opened as binary and 
you are trying to use it as symbolic. 


You are trying to write on a file that was opened as 
input or else you are trying to read from a file that. 
was opened as output. 


You are attempting formatted reading/writing while 
designating a numeric variable in the statement, mit. 
indicating a non-numeric field in the picture, 


You are attempting formatted reading/writing while 
designating a string variable in the statement, 
indicating a non—string field in the picture. 


You are trying to call a BASIC function with an 
incorrect name or you are using a three character name 
for a subscripted variable and the computer thinks it 
is a function. 


The computer does not recognize what you have typed as 
a legal BASIC statement or command. Sometimes it can 
tell you what character is wrong. The statement needs 
to be retyped. 


You have either a FOR or a NEXT for a second loop 
inbetween the FOR-NEXT of the first loop. It could 
also mean more than one NEXT for a single FOR. 


You did not finish the command or statement. 


The dimensions of two matrices to be added or 
subtracted are not identical. It could also be that 
you are trying to multiply two matrices with the first 
having dimensions (M,N) and the second not having 
dimensions (N,P). , 


The command you have just typed is not a valid command 
and must be a program statement. 


Gum 2 


but 
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LINE NUMBER TOO BIG 
LINE TOO LONG 


LOG OF NUMBER <= @ 


MATRICES NOT INDEPENDENT 


MATRIX STATEMENT ILLEGAL 
IN 


MATRIX NEARLY SINGLULAR 


NEGATIVE SUBSCRIPT 
NO PROGRAM 


NO STT. 
NUMS& READ FOR STRING 


NUMBER ILLEGAL 


NUMBER TOO BIG 


OUT OF DATA 


OUT OF MENORY 
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You have used a statement number that is greater than 
99999, 


You are trying to enter a statement which exceeds the 
maximum number of characters allowed ina line. This 
number varies but will be less than 92. 


THE argument of a LOG function is non-positive. 


Matrix multiplication requires three distinct matrices 
and yOurs may not be distinct. The MAT TRN statement 
also requires distinct matrices and may be your source 
of trouble. 


Illegal syntax in a MAT statement. | 


A MAT INV statement has encountered a matrix with zero 
Or -nearly zero pivotal elements. The matrix being 
inverted is singular or nearly so. 


The expression in a subscripted variable was negative. 


It is possible to get this from a RUN, LIST or OELETE 
command. Perhaps you forgot to load it from a file or 
maybe you accidentally deleted it. 


You. have entered a DEL command referencing a statement 
number that does not exist. 


A number waS input where the READ statement expected a 
string variable. 


The computer is ‘nterpreting something in the 
Statement as a numper that is illegal or in the wrong 
piace. Perhaps you have ileft out an arithmetic 
Operator or you concatenated a number to form a string 
varlable. 


The argument of the INT function may be greater than 


the largest acceptable integer or the file number 


specified by an input or output statement is greater 
than 9. 


A READ statement for which there is no data has been 
encountered, This may mean a normal end or your 
program and should be ignored. Ctherwise, it means 
that you have not supplied enougn data in catTA 
Statements. 


Program (or arrays in it) is too big and no storage is 
available (22,523 characters available), or FOR loops 
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nested too deep. The maximum number is figured 
according to: 


(<no of FOR) * 7 + (<no of GOSUB) <= 2848 


OVERFLOW DURING INPUT A number larger than 5.78960E/76 has been input. ‘The 
| computer supplies machine infinity and continues 
running the program. 


RANGE ERROR The expression in an ON-GOTO or ON-GOSUB statement 
evaluates to I where I does not have a corresponding 
statement number. Therefore there is no statement to 
transfer control to. Another cause can be the 
argument of the EOF function is greater than 9. 


RETURN BEFORE GOSUB The computer cannot execut® a RETURN before it has 
| executed a GOSUB because the GOSUB sets up the place 
to which the RETURN statement must go. 


SQRT OF NEG NUMBER The argument of the SQR function is negative. The . 
computer returns the square root of the absolute value 
of the argument and continues running. 


STNG BAD The computer is interpreting something in the 
statement as a string that is illegal or in the wrong 
Place, such as a string on the right hand side of a 
numeric expression. | 


STRING READ FOR NUMB A string was input where the READ statement expected a 
numeric value, 


STRING TOO LONG You are trying to input a string which is more than 
3028 characters. Another possible reason for this 
message is that you are concatenating two ocr more 
Strings and the resulting string is more than 320 
Characters, 


UNABLE TO OPEN FILE You have an OPEN statement that refers to a file name 
| : that does not exist. 


UNDEF LINE NO IN The statement number appearing in a GOTO, GOSUB, 
ON GOTO, ON GOSUB, or IF-THEN statement does not 
appear as a number for a statement in the program, 


UNDEFINED FUNCTION You are calling a programmer defined function that you 
have forgotten to define or else the DEF statement is 
aftez the statement where you use the function. © 


UNDEFINED MATRIX A matrix has been used on the right hand side of a MAT 
statement before having values assigned to its 
elements. 


July 1973 


UNDEFINED SUESCRIPTED 
VARIABLE 


UNDERFLOW DURING INPUT 


VARIABLE ILLEGAL 


WRONG NUMBER SUBSCRIPTS 


@ STEP SIZE IN FOR LOOP 
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The program is trying to use a subscripted variable 
that has no previous value. Before any variable can 
appear on the right hand side of an assignment 
statement, it must first appear on the left side of 
One, Or in an input statement. | 


A number in absolute size smaller than 4.318@09E-78 has 
been input. The computer supplies 9.863616E-/7 and 
continues running. 


There are some Beaeee where certain variable names are 
not allowed: 


1) subscripted variables as the iterative variable in 
a For statement, i.e. FOR A(I) = oe. 


2) subkscripted variables as the dummy variable ina 
DEF statement, i.e. DEF FNA(A(@)). 


3) a letter-number combination variable name of a 
subseripted variable, i.e. DIM A1(50). 


A one-dimensional array was referenced with two 
dimensions or a two-dimensional array was referenced 
with one dimension, ; 


The increment value of a FOR loop contains a zero 
value, 


9—5 
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XDS 9448 and CKXC 3800 Character Codes 


ADS 9428 ASCIT Coc 3800 BCD 
INT INT EXT TELE LINE INT INT EXT CARD CARD LINE 
Dd oct PE 6PRINTER EC OC Oc T Nv NC YNTER 
02 G26 8428 sp ie 48 6¢ 20 Sp sp SF 
01 g21 341 |} 4 42 52 52 na -2 v 
02 @22 842 ' 29 35 75 nd +58 > 
@3 023 243 # a 62 76 36 nd 368 z 
a4 G04 644 § % 43 53 53 $ ~38 
en) 905 @45 % a 44 16 16 nd 68 x 
Q6 226 046 & A 63 77 37 nd 278 A 
Q7 687 247 ° ‘2 44: 4a. 7 + 48 t 
68 010 @50 ( ? 6d 74 34 ( 248 ( 
9 211 351 ) ) 28 34 74 ) +48 ) 
12 212 052 * * 44 54 54 * -~48 * 
11 13 853 + ra 16 20 63 + + € 
12 014 g54 , ; 59 73 33 =, 2338 
13 G15 655 - - 32 43 42 - - - 
14 16 @56 , . 27 33 73 ‘ +38 ; 
15 617 O57 / / 49s 61 21.0 / 31 / 
16 3822 geo 2@ ; go 66 12 @B Z ; 
17. 224 «361 1 1 01. 1 #+o1 1 1 L 
18 822 262 2 2 22 682 32 2 2 2 
19 023 063 3 . 3 Q3 23 3 3 3 
20 YV24 264 4 & 04 O4 04 4 4 ee 
21 225 265 5 5 35 gs v5 5 5 3 
22 226 366 6 h 26 G6 Q6 6 § 5 
23 O27 67 +7 7 Q7 Q7 27 7 7 ? 
24 038 070 & S 28 12 10. 8 8 4 
25 231 971 9 23 2 8141 11 9 ) ) 
26 232 372 3 : 12 12 0 ‘ 82 : 
Zt 033 673 ;3 ; 31 37 77 na +78 ‘ 
28 034 3874 < < z6 32 2 nd +2 ra 
3g 936 276 »> > 47 57 57 nd -~78 > 
31 037 @77 #2? 3 13 75 15 na 53 < 


Ami 
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INT. 
DEC 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 
49 
38 
a1 
or 
53 
34 
35 
56 
57 
38 
39 
ot) 
61 
62 
63 : 


Sp= Space, blank or no punch. 
nd= not defined, varies with particular unit used. 


XDS 948 ASCITZ 


INT 
OCT 


B40 
B41 

O42 
243 
O44 
845 
046 


O47 


230 
851 

852 
353 
B34 
Q355 
656 


O57 


36g 
261 


662 


63 
264 
65 
266 
67 
270 
371 
272 
273 
974 
275 
07 6 
377 


EAT 


ae. 


1088 
181 

182 
103 
104 
125 


ENG reg ee 


to 
SRO mow 


4H NKR ER OCHO DWODOZEHRGHPO Mm MON DY @ 


TELE 
¥ @349 


{ 


> Se ow Ke See 


40 a0 UD” FMACRP EDMAMYIOD YC! 
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INT EXT 
9,6 se 4 
75 35 
21.64 
22 62 
23. «463 
24 64 
25 +65 
26 66 
27. «67 
30 «78 
34. 02«O74 
4144 
42 42 
43 43 
44 44 
45 45 
46 46 
4747 
58 58 
5151 
62 22 
63 23 
64 24 
65 25 
66 26 
67 27 
76 30 
74.31 
17.47 
36 «76 
72 32 
55 55 
56 56 


NK KERCOHANWOWOAZOAGQGHMOAywMOOWY 


CDC 3886 BCD 


es 
rey) 
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CARD LINE 
PUN PRINTER 


Pe YON KK ZB eC Hy NA wD VEO LZ FFAACHTHYDMOUGA SPDs 


: (colon) is not transmitted on BCD (even parity) tape, changed to d. 
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XDS 940 ASCIT Character Codes 


INT INT ASCII TELE 940 INT INT ASCII TELE 946 
PEC. OCT OCT TYPE. _USE BEC _ocT oct TYPE USE 


id 
ad 


64 188 140 
g6e5 101 141 
@66 102 142 
267 193 143 
968 104 144 
@69 195 145 
73 186 146 
071 187 147 
72 110 15¢ 
73 111 «151 
74 112 152 
75 113 153 
76 114 154 
277 115 155 
78 116 156 


496 142 d66 NULL Blank tape 

G97 141 291 SOM &&A Delete character 
998 142 882 EQOA &B 

099 143 663 ETX &€ 

188 1442 084 EoT &D End function 
101 1445 25 ENORY &£E 

182 146 %8g6 ACK &F 7 | 

1863 147 827 BELL &G Ring bell 

124 158 910  j##Bksp &H | 

1825 151 3811 °£x°;Tab &T 

186 152 612 LE &J Line feed | 
187 153 9313 VT ak Vertical tab 
1@8 154 614 FORM &L Page eject 

199 155 g15- CR &M@ Carriage return 
112 156 g16 SO 4&N 


Berner ONS KE Ce AUHNDOD A HALEY whe ON o B 
We-O NK KE cer Hy ODOT BPA uUk TQ MOANA 


279 117° «#157 414.6157 17 SI &O 

0832 122 162 412 100 822 DLE &P «= 

081 1421 161 113 161 921 DC1 &Q Paper tape on 
@82 122 162 114 162 822 Dee &R 7 
283 123 143 115 463 623 C3 &S Paper tape off 
G64 124 164 116 1604 924 4 &T 

085 125 165 117 165 625 NAK &U _ 
@86 126 166 118 166 $26 SYNC &V Next chr literal 
87 127 1867 119 14167 2327 ETS &W Delete word 
06so 1328 172 120 173 9324 CANCL &X. 

89 131 171 121 171 £4931 EM &Y 

090 132 172 122 172 9832  £SUB &Z 

291 133 #173 123 #173 3933 Prefix Escape 

092 134 174 124 174 3634 FS 

693 135 175 b 125 175 235 GS 
94 %136 176 426 176 336 RS 


295 4137 #177 DELETE eof 127 #1477 337 US 


Eo fwd 27657537B (3 137’%s) 


NOTES 


mo=emulitiple blank character. 
esczescape or prefix. 
@eor=end of file character. 


A=3 
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NOTES 


SA, &B, etc. means Control A, Control B, etc. 
TTY names (NULL, SOM, etc.) are standard communication names. 


Prefix is used on model 37 Teletypes for special functions; it can 
be input only with &V in QED. The characters following the 
prefix perform the following functions: i=set horizontal tab, 
Z=clear horizontal tabs, 3=shift to red ribbon, 4shift to 
black ribbon, S5=set * vertical tab, G=clear vertical tab, 


7=reverse line feed, 8=half reverse line feed, Q9shalf forward 
line feed. | : 


The: multiple blank character (135B) will always be followed by 
another character whose octal value will be used as a blank 
(space) count. Thus, if the characters 135B 12B are read from 


a symbolic file, it means that 10 spaces in a row were stored 
in that file. 


£3) 
B 


of file character (13783) will generally be read as the last 
Character ina file. However, it is possible to have 137B’s in 
the middle of a file. Therefore, any time a 137B is 
encountered, the file word should be tested for the EOF bit 
(same as the sign bit) being set to make sure the true end of 
file has been reached. 


Form feed (&L or 154B) should be followed by at least 6 (for model 
33 and 35 Teletypes) or 45 (for. model 37’s) non-printing 
Characters to allow time for the page to stop at the top of the 
next form (up to three seconds for a 37). 
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Special Characters 


INT INT ASCII TELE 949 


C..- OCT. “OC ft PE USE 
221. 335 375 } Right brace — 


234 352 212 LF Line feed with no return 
237.0 3355) 215 CR Carriage return with no line feed 


352B and 355B are used to produce special output, such as plotting or 
underlining. They inhibit the normal carriage return and Jline feed 
processing cf the monitor, which normally puts out a carriage return, 
rubout, diine feed when a carriage return is output; anda line feed, 
Carriage return, rubout for a line feed. These characters can be put 
ina file bp using CED. In CED, the controleshift-L (&\) character 
will put in single line feed character (3523), and controi-shi ft-M 
(&]) will put in a single carriage return character. Note that these 
two Characters are treated exactly like any normal character in QED, 
That is, they are not considered to mark the end of a logical line or 
terminate the edit mode. 


3358 is used to produce a right brace on output. It is not possible 
to output this character as 1353, because that is the multiple biank 
Character. 3353 may be entered into a file using &V in QED (Version 
6,0 or higher.) 


Ack now ledgment 


The BASIC language and compiler were originally developed at Dartmouth 
College for time-sharing computer users with no previous knowledge of 
computers, as well as for users with considerable programming 
experience. A simple straightforward language, BASIC clesely resembles 
standard mathematical notation, 


BASIC was orginally suppiied by Scientific Data Systems, now Xerox Data 
Systems. Modifications to the BASIC language have been sponsored b 
the NOAA Computer Division, Boulder, Colorado. The matrix operations 
were introduced in 1968 bw Dr. R. J. Slutz, J. R. Winkelman and Thomas. 
B. Gray of the NOAA Space Disturbances Laboratory. Strings and 
formatted input/output were added by Howard E. Bussey, Jr. in 1972. 


The first BASIC Manual was also originally supplied by Scientific Data 
Systems, then rewritten completely by Thomas 8. Gray. Supplements were 
issued for Matrix cperations and extensions to the language, This 
manual is a complete revision which supercedes all previous manuals and 
suppiements. 


